﻿
Imports BusinessLogicLayer
Imports BE = BusinessEntities

Partial Class Encuestas_RegistrarOpcion
    Inherits System.Web.UI.Page

    Dim errores As String
    Dim mensaje As String
    Public Shared opcion As String


    Protected Sub btngrabar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btngrabar.Click

        'Instanciamos la clase ClienteBL
        Dim capanegocios As New OpcionesBL
        'Instancias la entidad ClienteBE
        Dim objeto As New BE.OpcionesBE

        'Llenas las propiedades
        objeto.descripcionopcion = txtopcion.Text

        Dim resultado As String

        resultado = capanegocios.RegistrarOpcion(objeto)

        Try
            If resultado = "LA OPCIÓN FUE REGISTRADA SATISFACTORIAMENTE" Then

                mensaje = "Se insertó la Opcion : " & txtopcion.Text
                Dim script As String = "<script language=Javascript>"
                script += "alert('" & mensaje & "');"
                script += "</script>"
                Page.ClientScript.RegisterStartupScript(Me.GetType(), "script", script)


            Else

                mensaje = "No se insertó la Opcion "
                Dim script As String = "<script language=Javascript>"
                script += "alert('" & mensaje & "');"
                script += "</script>"
                Page.ClientScript.RegisterStartupScript(Me.GetType(), "script", script)

                lblresultado.Text = resultado

            End If

        Catch ex As Exception
            errores = capanegocios.ChapaError
            Response.Redirect("Errores.aspx?id=" & errores.ToString)
        Finally
            capanegocios = Nothing
            objeto = Nothing
        End Try

    End Sub
End Class

